home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
001
/
pcpgt.arc
/
SANJOSE.CTY
< prev
next >
Wrap
Text File
|
1987-03-11
|
519b
|
33 lines
SEND "C DIAL408/12,"
V2 = "San Jose"
SENDLN %3
WAIT FOR "PASSWORD ="
SENDLN %4
GETLN V9
CASE %9 OF
~ CONNECT
BEEP
BEEP
BEEP
SENDLN "ATZ"
WAIT FOR "OK"
CALL PAR
CLEAR
WRITE "You are now connected to "
WRITE %2
WRITELN
WRITELN
WRITELN "Press ALT-X to disconnect from node"
EXCH SANJOSE
ONLINE
call getcity.scr
BREAK
SENDLN D
~ BUSY
WRITELN
WRITE "Cannot connect with "
WRITE %2
WRITELN ", it is BUSY!"
WAIT FOR "@"
ESAC